Macworld Expo - Develope…Central & Net Innovations/Developer Central and Net Innovators (MacWorld Expo) (January 1999).iso/Developer Central/Bowers Development/Demo AppMaker/Examples/Pascal OS8/Everything/Radios.p

Text File | 1998-10-30 | 11.2 KB | 490 lines | [TEXT/CWIE]

{ Radios.p }
{ Created 10/30/98 1:06 PM by AppMaker }

Unit Radios;
Interface

Uses
    Types,
    Quickdraw,
    Controls,
    Dialogs,
    Events,
    Lists,
    Menus,
    Resources,
    TextEdit,
    ToolUtils,

    DDocData,
    EverythingEngine,
    EverythingDoc,
    AMWindow;

type
    Radios        = object (AMWindow)

    {data members}
        mData:            DDocData;
        mRadioGroupGroupHandle:        ControlHandle;
        mStandard3Handle:        ControlHandle;
        mGroupBoxHandle:        ControlHandle;
        mGroupGroupHandle:        ControlHandle;
        mGroupRadio1Handle:    ControlHandle;    // Fred
        mGroupRadio2Handle:    ControlHandle;    // George
        mGroupRadio3Handle:    ControlHandle;    // Harry
        mGraphic3BoxHandle:        ControlHandle;
        mGraphic3GroupHandle:        ControlHandle;
        mStopHandle:        ControlHandle;
        mGoHandle:        ControlHandle;
        mBevel3BoxHandle:        ControlHandle;
        mBevel3GroupHandle:        ControlHandle;
        mRadioButtonHandle:        ControlHandle;
        mRadioButton2Handle:        ControlHandle;
        mTextBoxHandle:        ControlHandle;
        mTextGroupHandle:        ControlHandle;
        mNameHandle:        ControlHandle;
        mKindHandle:        ControlHandle;
        mSizeHandle:        ControlHandle;

    {methods}
        Procedure Initialize; Override;

        Procedure Open        (inDoc:        EverythingDoc;
                             inData:    DDocData);
        Procedure Close; Override;

        Procedure Control    (whichControl:    ControlHandle;
                              whichPart:        integer;
                             where:            Point); Override;
        Procedure MouseIn    (where:            Point;
                             modifiers:        integer); Override;
        Procedure TypeIn    (charCode:        SInt16); Override;
        Procedure ExitCurField; Override;
        Procedure DataChanged    (inDataID:    longint); Override;
        Procedure Resize; Override;
        Procedure Scroll    (newValue:        integer;
                             oldValue:        integer); Override;

        Function  GetEngine: EverythingEngine;

{$ifc false}
        Procedure UpdateMenus; Override;
{$endif}
        Function  DoCommand        (inCommand:    longint): Boolean; Override;

        Procedure DoUndo;
        Procedure DoCut;
        Procedure DoCopy;
        Procedure DoPaste;
        Procedure DoClear;
        Procedure DoSelectAll;
        Procedure DoShowClipboard;

    end;

{----------}
Procedure CreateRadios    (inDoc:        EverythingDoc;
                             inData:    DDocData);

{----------}
Implementation

Uses
    Globals,
    ResourceDefs,
    DoScrap,
    Scrolling,
    ControlUtils,
    Miscellany;

const
    kRadioGroupGroup        = 1;
    kStandard3Radio        = 1;
kGroupBox        = 2;
    kGroupGroup        = 3;
        kGroupRadio1        = 3;
        kGroupRadio2        = 4;
        kGroupRadio3        = 5;
kGraphic3Box        = 6;
    kGraphic3Group        = 7;
    kStopRadio        = 7;
    kGoRadio        = 8;
kBevel3Box        = 9;
    kBevel3Group        = 10;
    kRadioButtonRadio        = 10;
    kRadioButton2Radio        = 11;
kTextBox        = 12;
    kTextGroup        = 13;
    kNameRadio        = 13;
    kKindRadio        = 14;
    kSizeRadio        = 15;

{----------}
Procedure CreateRadios (
    inDoc:        EverythingDoc;
    inData:        DDocData);
var
    winObj:        Radios;
begin
    winObj := nil;
    New (winObj);

    if winObj <> nil then begin
        winObj.Initialize;
        winObj.Open (inDoc, inData);
    end;
end;

{----------}
Procedure Radios.Initialize;
begin
    Inherited Initialize;
end;

{----------}
Function  Radios.GetEngine: EverythingEngine;
begin
    GetEngine := EverythingEngine (mDoc.mEngine);
end;

{----------}
Procedure Radios.Open (
    inDoc:        EverythingDoc;
    inData:        DDocData);
var
    window:        WindowPtr;
    wftb:        Handle;
    errCode:    OSErr;
begin
    mDoc := inDoc;
    mData := inData;
    mData.AddResponder (self);

    window := GetNewCWindow (WIND_Radios, nil, WindowPtr (-1));
    if inDoc.mEngine.GetFilename <> '' then begin
        SetWTitle (window, inDoc.mEngine.GetFilename);
    end;
    mWindow := window;
    EverythingDoc (mDoc).mRadiosPtr := window;

    WindowPeek (window)^.windowKind := kAMWindowFlag;
    SetWRefCon (window, ord4 (self));
    SetPort (window);
    SetInfo (window);

    wftb := GetResource ('Wftb', WIND_Radios);

    errCode := CreateRootControl (window, mRootControl);

    vScroll := nil;
    hScroll := nil;


    mRadioGroupGroupHandle := GetNewControl (CNTL_RadioGroupGroup, window);
    mStandard3Handle := GetNewControl (CNTL_Standard3, window);
    errCode := EmbedControl (mStandard3Handle, mRadioGroupGroupHandle);
    SetWindowItemFont (mStandard3Handle, wftb, 2);

    mGroupBoxHandle := GetNewControl (CNTL_GroupBox, window);
    SetWindowItemFont (mGroupBoxHandle, wftb, 3);
    mGroupGroupHandle := GetNewControl (CNTL_GroupGroup, window);
    errCode := EmbedControl (mGroupGroupHandle, mGroupBoxHandle);
    mGroupRadio1Handle := GetNewControl (CNTL_GroupRadio1, window);
    SetWindowItemFont (mGroupRadio1Handle, wftb, 5);
    errCode := EmbedControl (mGroupRadio1Handle, mGroupGroupHandle);
    mGroupRadio2Handle := GetNewControl (CNTL_GroupRadio2, window);
    SetWindowItemFont (mGroupRadio2Handle, wftb, 6);
    errCode := EmbedControl (mGroupRadio2Handle, mGroupGroupHandle);
    mGroupRadio3Handle := GetNewControl (CNTL_GroupRadio3, window);
    SetWindowItemFont (mGroupRadio3Handle, wftb, 7);
    errCode := EmbedControl (mGroupRadio3Handle, mGroupGroupHandle);

    mGraphic3BoxHandle := GetNewControl (CNTL_Graphic3Box, window);
    SetWindowItemFont (mGraphic3BoxHandle, wftb, 8);
    mGraphic3GroupHandle := GetNewControl (CNTL_Graphic3Group, window);
    errCode := EmbedControl (mGraphic3GroupHandle, mGraphic3BoxHandle);
    mStopHandle := GetNewControl (CNTL_Stop, window);
    errCode := EmbedControl (mStopHandle, mGraphic3GroupHandle);
    SetWindowItemFont (mStopHandle, wftb, 10);
    mGoHandle := GetNewControl (CNTL_Go, window);
    errCode := EmbedControl (mGoHandle, mGraphic3GroupHandle);
    SetWindowItemFont (mGoHandle, wftb, 11);

    mBevel3BoxHandle := GetNewControl (CNTL_Bevel3Box, window);
    SetWindowItemFont (mBevel3BoxHandle, wftb, 12);
    mBevel3GroupHandle := GetNewControl (CNTL_Bevel3Group, window);
    errCode := EmbedControl (mBevel3GroupHandle, mBevel3BoxHandle);
    mRadioButtonHandle := GetNewControl (CNTL_RadioButton, window);
    errCode := EmbedControl (mRadioButtonHandle, mBevel3GroupHandle);
    SetWindowItemFont (mRadioButtonHandle, wftb, 14);
    errCode := SetBevelButtonGraphicAlignment (mRadioButtonHandle, kControlBevelButtonAlignCenter, 0, 0);
    mRadioButton2Handle := GetNewControl (CNTL_RadioButton2, window);
    errCode := EmbedControl (mRadioButton2Handle, mBevel3GroupHandle);
    SetWindowItemFont (mRadioButton2Handle, wftb, 15);
    errCode := SetBevelButtonGraphicAlignment (mRadioButton2Handle, kControlBevelButtonAlignCenter, 0, 0);

    mTextBoxHandle := GetNewControl (CNTL_TextBox, window);
    SetWindowItemFont (mTextBoxHandle, wftb, 16);
    mTextGroupHandle := GetNewControl (CNTL_TextGroup, window);
    errCode := EmbedControl (mTextGroupHandle, mTextBoxHandle);
    mNameHandle := GetNewControl (CNTL_Name, window);
    errCode := EmbedControl (mNameHandle, mTextGroupHandle);
    SetWindowItemFont (mNameHandle, wftb, 18);
    mKindHandle := GetNewControl (CNTL_Kind, window);
    errCode := EmbedControl (mKindHandle, mTextGroupHandle);
    SetWindowItemFont (mKindHandle, wftb, 19);
    mSizeHandle := GetNewControl (CNTL_Size, window);
    errCode := EmbedControl (mSizeHandle, mTextGroupHandle);
    SetWindowItemFont (mSizeHandle, wftb, 20);

    errCode := AdvanceKeyboardFocus (window);

    ShowWindow (window);
end;

{----------}
Procedure Radios.Close;
begin
    mData.RemoveResponder (self);

    EverythingDoc (mDoc).mRadiosPtr := nil;
    SetInfo (nil);
    HideWindow (mWindow);
    DisposeWindow (mWindow);

    Dispose (self);
end;

{----------}
Procedure Radios.Control (
    whichControl:    ControlHandle;
    whichPart:        integer;
    where:            Point);
var
    bounds:            Rect;
    newValue:        integer;
    partcode:        SInt16;
begin
    ExitCurField ();

    if whichControl = mRadioGroupGroupHandle then begin
        if TrackClick (whichControl, where) then begin
            mData.SetRadioGroup (GetControlValue (mRadioGroupGroupHandle));
        end;
    end;
    if whichControl = mGroupGroupHandle then begin
        if TrackClick (whichControl, where) then begin
            mData.SetGroup (GetControlValue (mGroupGroupHandle));
        end;
    end;
    if whichControl = mGraphic3GroupHandle then begin
        if TrackClick (whichControl, where) then begin
            mData.SetGraphic (GetControlValue (mGraphic3GroupHandle));
        end;
    end;
    if whichControl = mBevel3GroupHandle then begin
        if TrackClick (whichControl, where) then begin
            mData.SetBevel (GetControlValue (mBevel3GroupHandle));
        end;
    end;
    if whichControl = mTextGroupHandle then begin
        if TrackClick (whichControl, where) then begin
            mData.SetText (GetControlValue (mTextGroupHandle));
        end;
    end;
end;

{----------}
Procedure Radios.DataChanged (
    inDataID:        longint);
begin
    if inDataID = idRadioGroup then begin
        SetControlValue (mRadioGroupGroupHandle, mData.GetRadioGroup);
    end;
    if inDataID = idGroup then begin
        SetControlValue (mGroupGroupHandle, mData.GetGroup);
    end;
    if inDataID = idGraphic then begin
        SetControlValue (mGraphic3GroupHandle, mData.GetGraphic);
    end;
    if inDataID = idBevel then begin
        SetControlValue (mBevel3GroupHandle, mData.GetBevel);
    end;
    if inDataID = idText then begin
        SetControlValue (mTextGroupHandle, mData.GetText);
    end;
End;

{----------}
Procedure Radios.MouseIn (
    where:            Point;
    modifiers:        integer);
var
    bounds:            Rect;
begin
end;

{----------}
Procedure Radios.ExitCurField;
var
    errCode:    OSErr;
    focus:        ControlHandle;
begin
    errCode := GetKeyboardFocus (mWindow, focus);

    if focus = nil then begin
        { nothing to exit }

    end;
    inherited ExitCurField;
end;

{----------}
Procedure Radios.TypeIn (
    charCode:    SInt16);
var
    ch:            char;
    errCode:    OSErr;
    focus:        ControlHandle;
    keyCode:    SInt16;
    partcode:    SInt16;
begin
    errCode := GetKeyboardFocus (mWindow, focus);

    ch := chr (charCode);
    if (ch = charEnter)
    |  (ch = charReturn) then begin
        ExitCurField;
    end else if ch = charEsc then begin
    end else if ch = charTab then begin
        DoTab (BAnd (curEvent.modifiers, optionKey) <> 0);
    end else if focus <> nil then begin
        keyCode := BAnd (curEvent.message, keyCodeMask);
        partcode := HandleControlKey (focus, keyCode, charCode, curEvent.modifiers);
        mDoc.mEngine.SetDirty;
    end else begin
        SysBeep (1);
    end;
end;

{----------}
Procedure Radios.Resize;
begin
    { application-specific code to resize items in window }
end;

{----------}
Procedure Radios.Scroll (
    newValue:    integer;
    oldValue:    integer);
begin
    { application-specific code to scroll window }
    if gWhichScroll = vScroll then begin
    end else begin    { horizontal }
    end;
end;

{----------}
Procedure Radios.DoUndo;
begin
end; {DoUndo}

{----------}
Procedure Radios.DoCut;
var
    curTE:        TEHandle;
begin
    curTE := GetCurTE ();

    if curTE <> nil then begin
        TECut (curTE);
        mDoc.mEngine.SetDirty;
        scrapDirty := true;
    end;
end; {DoCut}

{----------}
Procedure Radios.DoCopy;
var
    curTE:        TEHandle;
begin
    curTE := GetCurTE ();

    if curTE <> nil then begin
        TECopy (curTE);
        scrapDirty := true;
    end;
end; {DoCopy}

{----------}
Procedure Radios.DoPaste;
var
    curTE:        TEHandle;
begin
    curTE := GetCurTE ();

    if curTE <> nil then begin
        TEPaste (curTE);
        mDoc.mEngine.SetDirty;
    end;
end; {DoPaste}

{----------}
Procedure Radios.DoClear;
var
    curTE:        TEHandle;
begin
    curTE := GetCurTE ();

    if curTE <> nil then begin
        TEDelete (curTE);
        mDoc.mEngine.SetDirty;
    end;
end; {DoClear}

{----------}
Procedure Radios.DoSelectAll;
var
    curTE:        TEHandle;
begin
    curTE := GetCurTE ();

    if curTE <> nil then begin
        TESetSelect (0, 32767, curTE);
    end;
end; {DoSelectAll}

{----------}
Procedure Radios.DoShowClipboard;
begin
end; {DoShowClipboard}

{----------}
Function Radios.DoCommand (
    inCommand:        longint): Boolean;
begin
    DoCommand := true;
    case inCommand of
        cmdUndo:
                DoUndo;
        cmdCut:
                DoCut;
        cmdCopy:
                DoCopy;
        cmdPaste:
                DoPaste;
        cmdClear:
                DoClear;
        cmdSelectAll:
                DoSelectAll;
        cmdShowClipboard:
                DoShowClipboard;

        otherwise
                DoCommand := false;
    end; {case}
end;

end.